home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / prog / pas_all.zip / TI579.ASC < prev    next >
Text File  |  1992-02-28  |  2KB  |  67 lines
  1.  
  2.  
  3.  
  4.  
  5.  
  6.  
  7.  
  8.   PRODUCT  :  Turbo Pascal                           NUMBER  :  579
  9.   VERSION  :  6.0
  10.        OS  :  MS/PC DOS
  11.      DATE  :  February 28, 1992                        PAGE  :  1/1
  12.  
  13.     TITLE  :  EDITORS.PAS 3,4,5,6 Entry Patch
  14.  
  15.  
  16.  
  17.  
  18.   The following patch fixes the problem of not being able to enter
  19.   numbers 3 through 6 into the editor of the EDITORS.PAS example
  20.   shipped with Turbo Pascal 6.0.
  21.  
  22.   Open EDITORS.PAS in the TURBO editor and search for the EXISTING
  23.   code.   Once that is found change the EXISTING code to the CHANGE
  24.   TO code.  Save your changes and recompile EDITORS.PAS.
  25.  
  26.  
  27.   EXISTING:                        EXISTING:
  28.  
  29.           LODSW                    var
  30.           OR      BL,BL              Key: Word;
  31.           JE      @@2
  32.           CMP     BL,DL            CHANGE TO:
  33.  
  34.   CHANGE TO:                       var
  35.                                      ShiftState: Byte absolute
  36.           LODSW                        $40:$17;
  37.           CMP     BL,DL              Key: Word;
  38.  
  39.  
  40.   --------------------------       --------------------------
  41.  
  42.  
  43.   EXISTING:                        EXISTING:
  44.  
  45.           JE      @@4              begin
  46.   @@2:    CMP     BH,DH              Key := Event.KeyCode;
  47.           JE      @@4
  48.                                    CHANGE TO:
  49.   CHANGE TO:
  50.                                    begin
  51.           JE      @@4                if (ShiftState and $03 <> 0)
  52.           CMP     BH,DH               and (Event.ScanCode >= $47)
  53.           JE      @@4                  and (Event.ScanCode <= $51)
  54.                                    then
  55.                                        Event.CharCode := #0;
  56.                                      Key := Event.KeyCode;
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  
  63.  
  64.  
  65.  
  66.  
  67.